home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tm.d64 / mystery spell.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  7KB  |  282 lines
  1. 100 GOSUB 2660
  2. 110 X=RND(-TI)
  3. 120 DIM W(20),W$(500)
  4. 130 GOSUB 1190: REM DRAW HOUSE
  5. 140 PRINT"PLEASE WAIT...
  6. 150 [141] 1380 : [143] POKE IN SPRITES
  7. 160 [141] 1970 : [143] GET WORDS
  8. 170 [141] 690  :[143] SET UP SPRITES
  9. 180 [153]"              "
  10. 190 W$[178]W$([187](1)[172]N[170]1)
  11. 200 [141] 650
  12. 210 L$[178]" ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  13. 220 [153]"";
  14. 230 [129] I[178]2 [164] 14
  15. 240 [153][202](L$,I,1)"";
  16. 250 [130]
  17. 260 [153]:[153]"";
  18. 270 [129] I[178]15 [164] 27
  19. 280 [153][202](L$,I,1)"";
  20. 290 [130]
  21. 300 [153]""[166]18[171][195](G$));
  22. 310 [129] I[178]1 [164] [195](G$)
  23. 320 [153][202](G$,I,1)"";
  24. 330 [130]
  25. 340 [139] COUNT[179][177][195](W$) [167]420
  26. 350 [151] 198,0
  27. 360 [129] DL[178]1[164]100:[130]DL:CL[178]CL[170]1:[139]CL[178]3[167]CL[178]1
  28. 370 [153][202]("STOPOPEN",CL,1);
  29. 380 [153]"              YOU WIN !!!!"
  30. 390 [161]A$:[139]A$[178]""[167] 360
  31. 400 [137] 2610
  32. 410 [141] 2000
  33. 420 [161]A$:[139]A$[179]"A"[176]A$[177]"Z"[175]A$[179][177]"_"[167]410                    
  34. 430 [139] A$[178]"_"[167] 760
  35. 440 P[178][198](A$)[171]64
  36. 450 [139] [202](L$,P[170]1,1)[179][177]" "[167]540
  37. 460 [153]"        LETTER ALREADY CHOSEN          "
  38. 470 [129] I[178]1 [164] 800:[130]I
  39. 480 [153]"                                      "
  40. 490 [153]""[166]18[171][195](G$));
  41. 500 [129] I[178]1[164] [195](G$)
  42. 510 [153][202](G$,I,1)"";
  43. 520 [130]
  44. 530 [137] 420
  45. 540 L$[178][200](L$,P)[170]" "[170][202](L$,P[170]2)
  46. 550 RF[178]0 :[143] FLAG FOR CORRECT GUESS
  47. 560 [129] I[178]1 [164] [195](W$)
  48. 570 [139] [202](W$,I,1)[179][177]A$ [167] 610
  49. 580 G$[178][200](G$,I)[170][202](W$,I,1)[170][202](G$,I[170]2)
  50. 590 RF[178]RF[170]1
  51. 600 COUNT[178]COUNT[170]1
  52. 610 [130] I
  53. 620 [139] RF[178]0 [167] [141] 1030
  54. 630 [139] RF [167] [141] 2070
  55. 640 [137] 220
  56. 650 G$[178]" "
  57. 660 [129] I[178]1 [164] [195](W$):G$[178]G$[170]"-":W(I)[178]0:[130]
  58. 670 [142]
  59. 680 I[178]I[170]1:[137]1980
  60. 690 [143] SET UP SPRITES
  61. 700 V[178]53248
  62. 710 [129] I[178]0 [164] 15:[151] V[170]I,0:[130]
  63. 720 [151] V[170]21,255
  64. 730 [129] I[178]V[170]39 [164] V[170]46:[151] I,0:[130]
  65. 740 X[178]0:Y[178]60:S[178]251
  66. 750 [142]
  67. 760 [153]"ENTER YOUR GUESS: ";
  68. 770 [151] V[170]21,[194](V[170]21)[175]254
  69. 780 [129] I[178]1 [164] [195](W$):[153]"TO";:[130]
  70. 790 [153]"                  ";GU$;
  71. 800 [139] [195](GU$)[179][195](W$)[167][153]"SPC(";
  72. 810 [139] [195](GU$)[179][195](W$)[171]1 [167] [129] I[178]2 [164] [195](W$)[171][195](GU$):[153]"TO";
  73. 820 [161] K$: [139] K$[178]""[167]820
  74. 830 [139] K$[178][199](20) [175] [195](GU$)[177]0 [167] GU$[178][200](GU$,[195](GU$)[171]1):[137]790
  75. 840 [139] K$[178][199](13) [175] [195](GU$)[178][195](W$) [167] 870
  76. 850 [139] K$[177][178]"A" [175] K$[179][178]"Z" [175] [195](GU$)[179][195](W$) [167] GU$[178]GU$[170]K$
  77. 860 [137] 790
  78. 870 [139] GU$[179][177]W$ [167] 930
  79. 880 [153]"                                      "
  80. 890 [153]""[166]18[171][195](" "[170]W$));
  81. 900 [129] I[178]1[164] [195](" "[170]W$)
  82. 910 [153][202](" "[170]W$,I,1)"";
  83. 920 [130]:[137]350
  84. 930 [153]"STOP             SORRY... YOU LOSE     "
  85. 940 [153]"STOPTHE WORD WAS ..."
  86. 950 [153]""[166]18[171][195](" "[170]W$));
  87. 960 [129] I[178]1[164] [195](" "[170]W$)
  88. 970 [153][202](" "[170]W$,I,1)"";
  89. 980 [129] D[178]1 [164] 200:[130]
  90. 990 [130]
  91. 1000 [151] 198,0
  92. 1010 [161]A$:[139]A$[178]""[167]1010
  93. 1020 [137] 2610
  94. 1030 DB[178]DB[170]1:S[178]S[171]3
  95. 1040 DX[178]32[172]DB[170]16:DY[178]225
  96. 1050 [139] DB[178]8 [167] DB[178]0
  97. 1060 [151]V,X[175]255:[151]V[170]16,[194](V[170]16)[175]254[176][171](X[177]255):[151] V[170]1,Y:[151]2040,S
  98. 1070 [139] X[178]0 [167] [151] V[170]21,[194](V[170]21)[176]1
  99. 1080 FLAG[178]0
  100. 1090 [139][182](X[171]DX)[177]1[167]X[178]X[170]3:FLAG[178]1:[139]X[177]344[167] X[178]0:[151]V[170]21,[194](V[170]21)[175]254
  101. 1100 [139] Y[179]DY [167] Y[178]Y[170]2:FLAG[178]1
  102. 1110 S[178]S[170]1:[139]S[178]251[167]S[178]248
  103. 1120 [139] FLAG [167] 1060
  104. 1130 X[178]DX:Y[178]DY
  105. 1140 [151]V[170]2[172]DB,X[175]255:[151]V[170]16,[194](V[170]16)[176](2[174]DB)[172]([171](X[177]255))
  106. 1150 [151]V[170]2[172]DB[170]1,Y:[151]2040[170]DB,254
  107. 1160 [139] DB[179][177]0 [167] [151] V[170]21,[194](V[170]21)[175]254
  108. 1170 X[178]0:Y[178]60:[139] DB[178]0 [167] 930
  109. 1180 [142]
  110. 1190 [151] 53281,3:[151] 53280,4
  111. 1200 [153]"OPENLOAD
  112. 1210 PRINT"
  113. 1220 [153]
  114. 1230 [153]"          WAIT          *ONSINWAIT      
  115. 1240 PRINT"      [161]    [146][181]      [158][169][223][144][146][149][160][165]    [181] [182][146]
  116. 1250 [153]"      INT    ABSWAIT     SYSSTEP  (null)WAITSTOPFN       WAIT
  117. 1260 PRINT"      [165]    [170][146]    [158][169]    [223][146]   [181]   [182][146]
  118. 1270 [153]"            WAIT        NOT WAIT        WAIT
  119. 1280 PRINT"      [152]    [146]       [168]    [146]     [152] [146]
  120. 1290 [153]"PRINT        PRINT#  PRINT        NEWRND NOTPRINT     PRINT# PRINT            ";
  121. 1300 [153]"        PRINT#  PRINT        WAIT GET  PRINT     PRINT# PRINT            ";
  122. 1310 [153]"PRINT";
  123. 1320 [129]I[178]0 [164] 8:[153]"                                        ";:[130]
  124. 1330 [129] I[178]1 [164] 8: L[178]1024[170]23[172]40[170]I[172]4 :[151]L,144:[151]L[170]54272,0:[130]
  125. 1340 [129]I[178]0 [164] 39:[151]1024[170]24[172]40[170]I,160:[151]55296[170]24[172]40[170]I,13:[130]
  126. 1350 [153]"
  127. 1360 PRINT"[144]
  128. 1370 [142]
  129. 1380 I[178]15872:[139][194](I[170]1)[178]96[167][129]I[178]1[164]64[172]6[170]2:[135]A:[130]:[142]
  130. 1390 [135] A:[139] A[178]256 [167] 1410
  131. 1400 [151] I,A:I[178]I[170]1:[137] 1390
  132. 1410 [129] I[178]0 [164] 63:[151] 254[172]64[170]I,[194](249[172]64[170]I):[130]:[142]
  133. 1420 [131] 0,96,0,0,113,224,0
  134. 1430 [131] 121,176,0,125,252,117,193
  135. 1440 [131] 192,127,255,192,113,255,128
  136. 1450 [131] 0,252,0,0,24,0,0
  137. 1460 [131] 24,0,0,102,0,0,102
  138. 1470 [131] 0,0,0,0,0,0,0
  139. 1480 [131] 0,0,0,0,0,0,0
  140. 1490 [131] 0,0,0,0,0,0,0
  141. 1500 [131] 0,0,0,0,0,0,0
  142. 1510 [131] 0,0,0,0,0,1,224
  143. 1520 [131] 0,1,176,0,127,252,117
  144. 1530 [131] 193,192,127,255,192,113,255
  145. 1540 [131] 128,0,252,0,0,24,0
  146. 1550 [131] 0,24,0,0,102,0,0
  147. 1560 [131] 102,0,0,0,0,0,0
  148. 1570 [131] 0,0,0,0,0,0,0
  149. 1580 [131] 0,0,0,0,0,0,0
  150. 1590 [131] 0,0,0,0,0,0,0
  151. 1600 [131] 0,0,0,0,0,0,1
  152. 1610 [131] 224,0,1,176,112,127,252
  153. 1620 [131] 127,221,192,115,185,192,1
  154. 1630 [131] 179,128,0,172,0,0,24
  155. 1640 [131] 0,0,24,0,0,102,0
  156. 1650 [131] 0,102,0,0,0,0,0
  157. 1660 [131] 0,0,0,0,0,0,0
  158. 1670 [131] 0,0,0,0,0,0,0
  159. 1680 [131] 0,0,0,0,0,0,0
  160. 1690 [131] 0,0,0,0,96,0,0
  161. 1700 [131] 113,224,0,121,176,0,125
  162. 1710 [131] 252,117,193,192,127,255,192
  163. 1720 [131] 113,255,128,0,252,0,0
  164. 1730 [131] 0,0,0,0,0,0,0
  165. 1740 [131] 0,0,0,0,0,0,0
  166. 1750 [131] 0,0,0,0,0,0,0
  167. 1760 [131] 0,0,0,0,0,0,0
  168. 1770 [131] 0,0,0,0,0,0,0
  169. 1780 [131] 0,0,0,0,0,0,0
  170. 1790 [131] 0,1,224,0,1,176,0
  171. 1800 [131] 127,252,117,193,192,127,255
  172. 1810 [131] 192,113,255,128,0,252,0
  173. 1820 [131] 0,0,0,0,0,0,0
  174. 1830 [131] 0,0,0,0,0,0,0
  175. 1840 [131] 0,0,0,0,0,0,0
  176. 1850 [131] 0,0,0,0,0,0,0
  177. 1860 [131] 0,0,0,0,0,0,0
  178. 1870 [131] 0,0,0,0,0,0,0
  179. 1880 [131] 0,0,1,224,0,1,176
  180. 1890 [131] 112,127,252,127,221,192,115
  181. 1900 [131] 185,192,1,179,128,0,172
  182. 1910 [131] 0,0,112,0,0,0,0
  183. 1920 [131] 0,0,0,0,0,0,0
  184. 1930 [131] 0,0,0,0,0,0,0
  185. 1940 [131] 0,0,0,0,0,0,0
  186. 1950 [131] 0,0,0,0,0,0,0
  187. 1960 [131] 0,0,0,0,0,0,0,256
  188. 1970 I[178]1
  189. 1980 [135]W$(I):[139]W$(I)[178]"*"[167]N[178]I[171]1:[142]
  190. 1990 I[178]I[170]1:[137]1980
  191. 2000 [151]V,X[175]255:[151]V[170]16,[194](V[170]16)[175]254[176][171](X[177]255):[151]V[170]1,Y:[151]2040,S
  192. 2010 [139] X[178]0 [167] [151] V[170]21,[194](V[170]21)[176]1
  193. 2020 X[178]X[170]3:[139]X[177]344 [167]  X[178]0:[151]V[170]21,[194](V[170]21)[175]254
  194. 2030 Y[178]Y[171]1[170][187](1)[172]2:[139]Y[177]100[167]Y[178]99
  195. 2040 [139] Y[179]50 [167] Y[178]50
  196. 2050 S[178]S[170]1:[139]S[178]254[167]S[178]251
  197. 2060 [142]
  198. 2070 DX[178][181](P[170]13[172](P[177]13))[172]16[170]24[170]40
  199. 2080 DY[178]173[170][181](P[173]14)[172]24:[139] S[177]250 [167] S[178]S[171]3
  200. 2090 [151]V,X[175]255:[151]V[170]16,[194](V[170]16)[175]254[176][171](X[177]255):[151]V[170]1,Y:[151]2040,S
  201. 2100 [139] X[178]0 [167] [151] V[170]21,[194](V[170]21)[176]1
  202. 2110 FLAG[178]0
  203. 2120 [139][182](X[171]DX)[177]2[167]X[178]X[170]3:FLAG[178]1:[139]X[177]344[167]X[178]0:[151]V[170]21,[194](V[170]21)[175]254
  204. 2130 [139] Y[179]DY [167] Y[178]Y[170]2:FLAG[178]1
  205. 2140 S[178]S[170]1:[139]S[178]251[167]S[178]248
  206. 2150 [139] FLAG [167] 2090
  207. 2160 X[178]DX:Y[178]DY
  208. 2170 [151]V,X[175]255:[151]V[170]16,[194](V[170]16)[175]254[176][171](X[177]255):[151]V[170]1,Y:[151]2040,249
  209. 2180 [151] 56334,[194](56334)[175]254
  210. 2190 [151] 1,[194](1)[175]251
  211. 2200 [129] I[178]0 [164] 7
  212. 2210 B[178][194](53248[170]8[172]P[170]I)
  213. 2220 [129] J[178]248 [164] 250
  214. 2230 [151] J[172]64[170]40[170]I[172]3,B
  215. 2240 [130] J,I
  216. 2250 [151] 1,[194](1)[176]4
  217. 2260 [151] 56334,[194](56334)[176]1
  218. 2270 [153]"";
  219. 2280 [129] I[178]2 [164] 14
  220. 2290 [153][202](L$,I,1)"";
  221. 2300 [130]
  222. 2310 [153]:[153]"";
  223. 2320 [129] I[178]15[164]27
  224. 2330 [153][202](L$,I,1)"";
  225. 2340 [130]
  226. 2350 DX[178]160[171]8[172][195](G$):DY[178]69
  227. 2360 [151]V,X[175]255:[151]V[170]16,[194](V[170]16)[175]254[176][171](X[177]255):[151]V[170]1,Y:[151]2040,S
  228. 2370 [139] X[178]0 [167] [151] V[170]21,[194](V[170]21)[176]1
  229. 2380 FLAG[178]0
  230. 2390 [139][182](X[171]DX)[177]2[167]X[178]X[170]3:FLAG[178]1:[139]X[177]344[167] X[178]0:[151]V[170]21,[194](V[170]21)[175]254
  231. 2400 [139] Y[177]DY [167] Y[178]Y[171]2:FLAG[178]1
  232. 2410 S[178]S[170]1:[139]S[178]251[167]S[178]248
  233. 2420 [139] FLAG [167] 2360
  234. 2430 X[178]DX:Y[178]DY
  235. 2440 [151]V,X[175]255:[151]V[170]16,[194](V[170]16)[175]254[176][171](X[177]255):[151]V[170]1,Y:[151]2040,249
  236. 2450 [153]""[166]18[171][195](G$));
  237. 2460 [129] I[178]1[164] [195](G$)
  238. 2470 [139] [202](G$,I,1)[178]A$ [167] [153] A$;:RF[178]RF[171]1:[139]RF[178]0 [167] [141] 2560
  239. 2480 [139] [202](G$,I,1)[179][177]A$ [167] [153]"";
  240. 2490 [153]"";
  241. 2500 [139] RF[178]0 [167] I[178]100:[137]2540
  242. 2510 [129] J[178]0 [164] 15:X[178]X[170]1:S[178]S[170]1:[139]S[178]251[167]S[178]248
  243. 2520 [151]V,X[175]255:[151]V[170]16,[194](V[170]16)[175]254[176][171](X[177]255):[151]V[170]1,Y:[151]2040,S
  244. 2530 [130] J
  245. 2540 [130] I
  246. 2550 [142]
  247. 2560 [129] K[178]0 [164] 7
  248. 2570 [129] J[178]248 [164] 250
  249. 2580 [151] J[172]64[170]40[170]K[172]3,0
  250. 2590 [130] J,K
  251. 2600 [142]
  252. 2610 [153]"LOADSTOPDO YOU WISH TO PLAY AGAIN (Y/N) ?"
  253. 2615 [151] V[170]21,[194](V[170]21)[175]254
  254. 2620 [153]"YOU MISSED THIS MANY :"
  255. 2630 [161]A$:[139]A$[179][177]"N"[175]A$[179][177]"Y"[167]2630
  256. 2640 [139] A$[178]"Y"[167] [151]V[170]21,0:[138]110
  257. 2650 [128]
  258. 2660 [151] 53281,0:[151] 53280,0
  259. 2670 [153]"LOADSYS             INSTRUCTIONS
  260. 2680 PRINT"    CHOOSE LETTERS TO GUESS THE WORD.
  261. 2690 [153]"IF YOU CHOOSE A WRONG LETTER, THE BIRD
  262. 2700 PRINT"WILL LAND ON ITS PERCH.
  263. 2710 [153]"    WHEN ALL THE PERCHES ARE FULL, OR
  264. 2720 PRINT"YOU GUESSED THE WORD, THE GAME IS OVER
  265. 2730 [153]"    YOU CAN HIT THE "[199](34)"_"[199](34)" KEY ANY TIME TO
  266. 2740 PRINT"GUESS THE WORD. IF YOU GET IT WRONG,    YOU LOSE.
  267. 2750 [153]"SYSHIT A KEY TO BEGIN"
  268. 2760 [161]A$:[139] A$[178]"" [167] 2760
  269. 2770 [142]
  270. 2780 [131] HAPPY,BRIDGE,FAMILY,CHILDREN
  271. 2790 [131] WINDOW,TRAIN,DWARF,BIRDS
  272. 2800 [131] SUPERMAN,CONCERT,PEOPLE,MAGIC
  273. 2810 [131] SPACE,SCIENCE,PLANETS,GALAXY,STARS
  274. 2820 [131] ROOMS,TEACHER,CHALK,BLACKBOARD
  275. 2830 [131] SCREEN,COMPUTER,KEYBOARD,PROGRAM
  276. 2840 [131] SPELLING,WORDS,COLORS,LETTERS
  277. 2850 [131] MARKET,STREETS,SQUARE,TRIANGLE
  278. 2860 [131] MOVIE,SPACESHIP,LASER,AIRPLANE,BOAT
  279. 2870 [131] STICK,ROCK,PAPER,WIN,PLACE,SHOW
  280. 2880 [131] CHANNEL,EXECUTIVE,MONEY,SHIRT
  281. 2890 [131] QUIET,LOUD,BILLBOARD,YATCH,MOTORCYCLE,*
  282.